home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / circuits / spice2g6.z / spice2g6 / spice / Fortran / extnam.f < prev    next >
Encoding:
Text File  |  1989-02-03  |  1.2 KB  |  36 lines
  1.       subroutine extnam(aname,index)
  2.       implicit double precision (a-h,o-z)
  3. c
  4. c     this routine adds 'aname' to the list of 'unsatisfied' names (that
  5. c is, names which can only be resolved after subcircuit expansion).
  6. c
  7. c spice version 2g.6  sccsid=tabinf 3/15/83
  8.       common /tabinf/ ielmnt,isbckt,nsbckt,iunsat,nunsat,itemps,numtem,
  9.      1   isens,nsens,ifour,nfour,ifield,icode,idelim,icolum,insize,
  10.      2   junode,lsbkpt,numbkp,iorder,jmnode,iur,iuc,ilc,ilr,numoff,isr,
  11.      3   nmoffc,iseq,iseq1,neqn,nodevs,ndiag,iswap,iequa,macins,lvnim1,
  12.      4   lx0,lvn,lynl,lyu,lyl,lx1,lx2,lx3,lx4,lx5,lx6,lx7,ld0,ld1,ltd,
  13.      5   imynl,imvn,lcvn,nsnod,nsmat,nsval,icnod,icmat,icval,
  14.      6   loutpt,lpol,lzer,irswpf,irswpr,icswpf,icswpr,irpt,jcpt,
  15.      7   irowno,jcolno,nttbr,nttar,lvntmp
  16. c spice version 2g.6  sccsid=blank 3/15/83
  17.       common /blank/ value(200000)
  18.       integer nodplc(64)
  19.       complex cvalue(32)
  20.       equivalence (value(1),nodplc(1),cvalue(1))
  21.       integer xxor
  22. c
  23. c
  24.       anam=aname
  25.       if (nunsat.eq.0) go to 20
  26.       do 10 index=1,nunsat
  27.       if (xxor(anam,value(iunsat+index)).eq.0) go to 30
  28.    10 continue
  29. c
  30.    20 call extmem(iunsat,1)
  31.       nunsat=nunsat+1
  32.       index=nunsat
  33.       value(iunsat+index)=anam
  34.    30 return
  35.       end
  36.